package com.belazy.library.util.compute;

import java.text.NumberFormat;
import java.util.HashMap;

/**
 * 金额转大写
 * @author tangcp
 */

public class MoneyFormatUtils {
    public static final String EMPTY = "";
    public static final String ZERO = "零";
    public static final String ZERO_ZERO = "零零";
    public static final String ZERO_TEN = "零拾";
    public static final String ZERO_HUNDRED = "零佰";
    public static final String ZERO_THOUSAND = "零仟";
    public static final String ZERO_TEN_THOUSAND = "零万";
    public static final String ZERO_HUNDRED_MILLION = "零亿";
    public static final String ZERO_JIAO_ZERO_FEN = "零角零分";
    public static final String ZERO_JIAO = "零角";
    public static final String ZERO_FEN = "零分";

    public static final String ONE = "壹";
    public static final String TWO = "贰";
    public static final String THREE = "叁";
    public static final String FOUR = "肆";
    public static final String FIVE = "伍";
    public static final String SIX = "陆";
    public static final String SEVEN = "柒";
    public static final String EIGHT = "捌";
    public static final String NINE = "玖";
    public static final String TEN = "拾";
    public static final String HUNDRED = "佰";
    public static final String THOUSAND = "仟";
    public static final String TEN_THOUSAND = "万";
    public static final String HUNDRED_MILLION = "亿";
    public static final String YUAN = "元";
    public static final String JIAO = "角";
    public static final String FEN = "分";
    public static final String DOT = ".";
    public static final String ZHENG = "整";
    private static MoneyFormatUtils formatter = null;
    private HashMap chineseNumberMap = new HashMap ();
    private HashMap chineseMoneyPattern = new HashMap ();
    private NumberFormat numberFormat = NumberFormat.getInstance ();

    private MoneyFormatUtils() {
        numberFormat.setMaximumFractionDigits (4);
        numberFormat.setMinimumFractionDigits (2);
        numberFormat.setGroupingUsed (false);
        chineseNumberMap.put ("0", ZERO);
        chineseNumberMap.put ("1", ONE);
        chineseNumberMap.put ("2", TWO);
        chineseNumberMap.put ("3", THREE);
        chineseNumberMap.put ("4", FOUR);
        chineseNumberMap.put ("5", FIVE);
        chineseNumberMap.put ("6", SIX);
        chineseNumberMap.put ("7", SEVEN);
        chineseNumberMap.put ("8", EIGHT);
        chineseNumberMap.put ("9", NINE);
        chineseNumberMap.put (DOT, DOT);
        chineseMoneyPattern.put ("1", TEN);
        chineseMoneyPattern.put ("2", HUNDRED);
        chineseMoneyPattern.put ("3", THOUSAND);
        chineseMoneyPattern.put ("4", TEN_THOUSAND);
        chineseMoneyPattern.put ("5", TEN);
        chineseMoneyPattern.put ("6", HUNDRED);
        chineseMoneyPattern.put ("7", THOUSAND);
        chineseMoneyPattern.put ("8", HUNDRED_MILLION);
    }

    public static MoneyFormatUtils getInstance() {
        if (formatter == null) {
            formatter = new MoneyFormatUtils ();
        }
        return formatter;
    }

    public String format(String moneyStr) {
        checkPrecision (moneyStr);
        String result;
        result = convertToChineseNumber (moneyStr);
        result = addUnitsToChineseMoneyString (result);
        return result;
    }

    /**
     * 格式化 万元整
     *
     * @param moneyStr
     * @return
     */
    public String formatWanYuan(String moneyStr) {
//        checkPrecisionWanYuan(moneyStr);
        String result;
        result = convertToChineseNumber (moneyStr);
        result = addUnitsToChineseMoneyString (result);
        return result;
    }

    public String format(double moneyDouble) {
        return format (numberFormat.format (moneyDouble));
    }

    public String format(int moneyInt) {
        return format (numberFormat.format (moneyInt));
    }

    public String format(long moneyLong) {
        return format (numberFormat.format (moneyLong));
    }

    public String format(Number moneyNum) {
        return format (numberFormat.format (moneyNum));
    }

    private String convertToChineseNumber(String moneyStr) {
        String result;
        StringBuffer cMoneyStringBuffer = new StringBuffer ();
        for (int i = 0; i < moneyStr.length (); i++) {
            cMoneyStringBuffer.append (chineseNumberMap.get (moneyStr.substring (i, i + 1)));
        }
        // 拾佰仟万亿等都是汉字里面才有的单位，加上它们
        int indexOfDot = cMoneyStringBuffer.indexOf (DOT);
        int moneyPatternCursor = 1;
        for (int i = indexOfDot - 1; i > 0; i--) {
            cMoneyStringBuffer.insert (i, chineseMoneyPattern.get (EMPTY + moneyPatternCursor));
            moneyPatternCursor = moneyPatternCursor == 8 ? 1 : moneyPatternCursor + 1;
        }
        String fractionPart = cMoneyStringBuffer.substring (cMoneyStringBuffer.indexOf ("."));
        cMoneyStringBuffer.delete (cMoneyStringBuffer.indexOf ("."), cMoneyStringBuffer.length ());
        while (cMoneyStringBuffer.indexOf (ZERO_TEN) != -1) {
            cMoneyStringBuffer.replace (cMoneyStringBuffer.indexOf (ZERO_TEN), cMoneyStringBuffer.indexOf (ZERO_TEN) + 2, ZERO);
        }
        while (cMoneyStringBuffer.indexOf (ZERO_HUNDRED) != -1) {
            cMoneyStringBuffer.replace (cMoneyStringBuffer.indexOf (ZERO_HUNDRED), cMoneyStringBuffer.indexOf (ZERO_HUNDRED) + 2, ZERO);
        }
        while (cMoneyStringBuffer.indexOf (ZERO_THOUSAND) != -1) {
            cMoneyStringBuffer.replace (cMoneyStringBuffer.indexOf (ZERO_THOUSAND), cMoneyStringBuffer.indexOf (ZERO_THOUSAND) + 2, ZERO);
        }
        while (cMoneyStringBuffer.indexOf (ZERO_TEN_THOUSAND) != -1) {
            cMoneyStringBuffer.replace (cMoneyStringBuffer.indexOf (ZERO_TEN_THOUSAND), cMoneyStringBuffer.indexOf (ZERO_TEN_THOUSAND) + 2, TEN_THOUSAND);
        }
        while (cMoneyStringBuffer.indexOf (ZERO_HUNDRED_MILLION) != -1) {
            cMoneyStringBuffer.replace (cMoneyStringBuffer.indexOf (ZERO_HUNDRED_MILLION), cMoneyStringBuffer.indexOf (ZERO_HUNDRED_MILLION) + 2, HUNDRED_MILLION);
        }
        while (cMoneyStringBuffer.indexOf (ZERO_ZERO) != -1) {
            cMoneyStringBuffer.replace (cMoneyStringBuffer.indexOf (ZERO_ZERO), cMoneyStringBuffer.indexOf (ZERO_ZERO) + 2, ZERO);
        }
        if (cMoneyStringBuffer.lastIndexOf (ZERO) == cMoneyStringBuffer.length () - 1) {
            cMoneyStringBuffer.delete (cMoneyStringBuffer.length () - 1, cMoneyStringBuffer.length ());
        }
        cMoneyStringBuffer.append (fractionPart);
        result = cMoneyStringBuffer.toString ();
        return result;
    }
    private String addUnitsToChineseMoneyString(String moneyStr) {
        String result;
        StringBuffer cMoneyStringBuffer = new StringBuffer (moneyStr);
        int indexOfDot = cMoneyStringBuffer.indexOf (DOT);
        cMoneyStringBuffer.replace (indexOfDot, indexOfDot + 1, YUAN);
        cMoneyStringBuffer.insert (cMoneyStringBuffer.length () - 1, JIAO);
        cMoneyStringBuffer.insert (cMoneyStringBuffer.length (), FEN);

        if (cMoneyStringBuffer.indexOf (ZERO_JIAO_ZERO_FEN) != -1) {
            // 没有零头，加整
            cMoneyStringBuffer.replace (cMoneyStringBuffer.indexOf (ZERO_JIAO_ZERO_FEN), cMoneyStringBuffer.length (), ZHENG);
        } else if (cMoneyStringBuffer.indexOf (ZERO_FEN) != -1) {
            // 没有零分，加整
            cMoneyStringBuffer.replace (cMoneyStringBuffer.indexOf (ZERO_FEN), cMoneyStringBuffer.length (), ZHENG);
        } else {
            if (cMoneyStringBuffer.indexOf (ZERO_JIAO) != -1) {
                cMoneyStringBuffer.delete (cMoneyStringBuffer.indexOf (ZERO_JIAO), cMoneyStringBuffer.indexOf (ZERO_JIAO) + 2);
            }
        }
        result = cMoneyStringBuffer.toString ();
        return result;
    }
    private void checkPrecision(String moneyStr) {
        int fractionDigits = moneyStr.length () - moneyStr.indexOf (DOT) - 1;
        boolean flag = fractionDigits > 2;
        if (flag) {
            //精度不能比分低
            throw new RuntimeException ("金额" + moneyStr + "的小数位多于两位。");
        }

    }
    private void checkPrecisionWanYuan(String moneyStr) {
        int fractionDigits = moneyStr.length () - moneyStr.indexOf (DOT) - 1;
        boolean flag = fractionDigits > 6;
        if (flag) {
            //精度不能比分低
            throw new RuntimeException ("金额" + moneyStr + "的小数位多于六位。");
        }
    }


    public static void main(String[] args) {
        System.out.println (getInstance ().format (new Double (15000.26)));
    }

}